home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / GRAPHICS / POV_3 / SCENES / ADVANCED / C-SHAPES.POV next >
Encoding:
Text File  |  2005-03-08  |  11.8 KB  |  299 lines
  1. /*         
  2.           COMPOUND SOLIDS for POV-Ray 2.2
  3.           ===============================
  4.       Constructed by Grant Hutchison [100047,144]  
  5. Much data and encouragement from Tom Gettys [72730,2013]
  6. Other data from "Polyhedron Models" by Magnus Wenninger
  7.  
  8. Compounds and intersections of the simple Platonic solids
  9. can be used to generate several interesting shapes which
  10. highlight the relationships between the Platonics. Several
  11. compounds are declared below, with their component solids
  12. coloured to show up clearly. In each case, the vertices
  13. of the component solids define one regular shape, while
  14. their intersection defines another. (It is interesting
  15. to convert "union" to "intersection" and look at the
  16. results.)
  17. The file starts with the declaration of the unit solids
  18. necessary to create the compounds.
  19. */
  20.  
  21. #include "colors.inc"
  22.  
  23. //UNIT SOLIDS
  24. //These solids are based on those created by Tom Price
  25. //for the shapes2.inc file, but some of the angles and
  26. //orientations are different.
  27.  
  28. #declare Unit_Tetrahedron =
  29. intersection {  
  30.   plane { -z, 1 rotate <35.264390, 45, 0> }
  31.   plane { -z, 1 rotate <35.264390, 225, 0> }
  32.   plane { -z, 1 rotate <-35.264390, 135, 0> }
  33.   plane { -z, 1 rotate <-35.264390, 315, 0> }
  34. }
  35.  
  36. #declare Unit_Cube =
  37. box { <-1, -1, -1>, <1, 1, 1> } 
  38.  
  39. #declare Unit_Octahedron = 
  40. intersection {
  41.   plane { -z, 1 rotate <35.264390, 45, 0> }
  42.   plane { -z, 1 rotate <35.264390, 135, 0> }
  43.   plane { -z, 1 rotate <35.264390, 225, 0> }
  44.   plane { -z, 1 rotate <35.264390, 315, 0> }
  45.   plane { -z, 1 rotate <-35.264390, 45, 0> }
  46.   plane { -z, 1 rotate <-35.264390, 135, 0> }
  47.   plane { -z, 1 rotate <-35.264390, 225, 0> }
  48.   plane { -z, 1 rotate <-35.264390, 315, 0> }
  49. }
  50.  
  51. #declare Unit_Dodecahedron =
  52. intersection {
  53.   plane { -z, 1 rotate <26.565051, 36, 0> }
  54.   plane { -z, 1 rotate <26.565051, 108, 0> }
  55.   plane { -z, 1 rotate <26.565051, 180, 0> }
  56.   plane { -z, 1 rotate <26.565051, 252, 0> }
  57.   plane { -z, 1 rotate <26.565051, 324, 0> }
  58.   plane { -z, 1 rotate <-26.565051, 0, 0> }
  59.   plane { -z, 1 rotate <-26.565051, 72, 0> }
  60.   plane { -z, 1 rotate <-26.565051, 144, 0> }
  61.   plane { -z, 1 rotate <-26.565051, 216, 0> }
  62.   plane { -z, 1 rotate <-26.565051, 288, 0> }
  63.   plane { -z, 1 rotate -90*x }
  64.   plane { -z, 1 rotate 90*x }
  65. }
  66.  
  67. #declare Unit_Icosahedron =
  68. intersection {
  69.   plane { -z, 1 rotate <52.622632, 0, 0> }
  70.   plane { -z, 1 rotate <52.622632, 72, 0> }
  71.   plane { -z, 1 rotate <52.622632, 144, 0> }
  72.   plane { -z, 1 rotate <52.622632, 216, 0> }
  73.   plane { -z, 1 rotate <52.622632, 288, 0> }
  74.   plane { -z, 1 rotate <10.812317, 0, 0> }
  75.   plane { -z, 1 rotate <10.812317, 72, 0> }
  76.   plane { -z, 1 rotate <10.812317, 144, 0> }
  77.   plane { -z, 1 rotate <10.812317, 216, 0> }
  78.   plane { -z, 1 rotate <10.812317, 288, 0> }
  79.   plane { -z, 1 rotate <-10.812317, 36, 0> }
  80.   plane { -z, 1 rotate <-10.812317, 108, 0> }
  81.   plane { -z, 1 rotate <-10.812317, 180, 0> }
  82.   plane { -z, 1 rotate <-10.812317, 252, 0> }
  83.   plane { -z, 1 rotate <-10.812317, 324, 0> }
  84.   plane { -z, 1 rotate <-52.622632, 36, 0> }
  85.   plane { -z, 1 rotate <-52.622632, 108, 0> }
  86.   plane { -z, 1 rotate <-52.622632, 180, 0> }
  87.   plane { -z, 1 rotate <-52.622632, 252, 0> }
  88.   plane { -z, 1 rotate <-52.622632, 324, 0> }
  89. }
  90.  
  91. // COMPOUNDS
  92.  
  93. #declare Two_Tetrahedra =
  94. //Intersection defines an octahedron
  95. //Vertices define a cube
  96. union {
  97.   object {Unit_Tetrahedron pigment {color White}}
  98.   object {Unit_Tetrahedron rotate 90*y pigment {color Blue}}
  99.   scale <0.577350, 0.577350, 0.577350>
  100.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  101. }
  102.  
  103. #declare Five_Tetrahedra =
  104. //Intersection defines an icosahedron
  105. //Vertices define a dodecahedron
  106. union {
  107.   object {Unit_Tetrahedron rotate <31.717474, 0, 0> pigment {color White}}
  108.   object {Unit_Tetrahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  109.   object {Unit_Tetrahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  110.   object {Unit_Tetrahedron rotate <31.717474, 216, 0> pigment {color Red}}
  111.   object {Unit_Tetrahedron rotate <31.717474, 288, 0> pigment {color Green}}
  112.   scale <0.419469, 0.419469, 0.419469>
  113.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  114. } 
  115.  
  116. #declare Ten_Tetrahedra =
  117. //Intersection defines an icosahedron
  118. //Vertices define a dodecahedron
  119. union {
  120.   object {Unit_Tetrahedron rotate <31.717474, 0, 0> pigment {color White}}
  121.   object {Unit_Tetrahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  122.   object {Unit_Tetrahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  123.   object {Unit_Tetrahedron rotate <31.717474, 216, 0> pigment {color Red}}
  124.   object {Unit_Tetrahedron rotate <31.717474, 288, 0> pigment {color Green}}
  125.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 0, 0> pigment {color Yellow}}
  126.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 72, 0> pigment {color Orange}}
  127.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 144, 0> pigment {color Cyan}}
  128.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 216, 0> pigment {color Pink}}
  129.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 288, 0> pigment {color Grey}}
  130.   scale <0.419469, 0.419469, 0.419469>
  131.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  132. } 
  133.  
  134. #declare Five_Cubes =
  135. //Intersection defines a rhombic triacontahedron
  136. //Vertices define a dodecahedron
  137. union {  
  138.   object { Unit_Cube rotate <31.717474, 0, 0> pigment {color White}}
  139.   object { Unit_Cube rotate <31.717474, 72, 0> pigment {color Blue}}
  140.   object { Unit_Cube rotate <31.717474, 144, 0> pigment {color Magenta}}
  141.   object { Unit_Cube rotate <31.717474, 216, 0> pigment {color Red}}
  142.   object { Unit_Cube rotate <31.717474, 288, 0> pigment {color Green}}
  143.   scale <0.726542, 0.726542, 0.726542>
  144.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  145. }
  146.  
  147. #declare Five_Octahedra =
  148. //Intersection defines an icosahedron
  149. // Vertices define an icos1dodecahedron
  150. union {
  151.   object {Unit_Octahedron rotate <31.717474, 0, 0> pigment {color White}}
  152.   object {Unit_Octahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  153.   object {Unit_Octahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  154.   object {Unit_Octahedron rotate <31.717474, 216, 0> pigment {color Red}}
  155.   object {Unit_Octahedron rotate <31.717474, 288, 0> pigment {color Green}}
  156.   scale <0.678716, 0.678716, 0.678716>
  157.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  158. }
  159.  
  160. #declare Octahedron_Cube =
  161. //Intersection defines a cuboctahedron
  162. //Vertices define a rhombic dodecahedron
  163. union {
  164.   object {Unit_Cube pigment {color Blue}}
  165.   object {Unit_Octahedron scale <1.154700, 1.154700, 1.154700> pigment {color White}}
  166.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  167. }
  168.  
  169. #declare Icosahedron_Dodecahedron =
  170. //Intersection defines an icosidodecahedron
  171. //Vertices define a rhombic triacontahedron
  172. union {
  173.   object {Unit_Dodecahedron pigment {color Red}}
  174.   object {Unit_Icosahedron scale <1.098014, 1.098014, 1.098014> pigment {color Green}}
  175.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  176. }
  177.  
  178. #declare Two_Tetrahedra_i =
  179. //Intersection defines an octahedron
  180. //Vertices define a cube
  181. intersection {
  182.   object {Unit_Tetrahedron pigment {color White}}
  183.   object {Unit_Tetrahedron rotate 90*y pigment {color Blue}}
  184.   scale <0.577350, 0.577350, 0.577350>
  185.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  186. }
  187.  
  188. #declare Five_Tetrahedra_i =
  189. //Intersection defines an icosahedron
  190. //Vertices define a dodecahedron
  191. intersection {
  192.   object {Unit_Tetrahedron rotate <31.717474, 0, 0> pigment {color White}}
  193.   object {Unit_Tetrahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  194.   object {Unit_Tetrahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  195.   object {Unit_Tetrahedron rotate <31.717474, 216, 0> pigment {color Red}}
  196.   object {Unit_Tetrahedron rotate <31.717474, 288, 0> pigment {color Green}}
  197.   scale <0.419469, 0.419469, 0.419469>
  198.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  199. } 
  200.  
  201. #declare Ten_Tetrahedra_i =
  202. //Intersection defines an icosahedron
  203. //Vertices define a dodecahedron
  204. intersection {
  205.   object {Unit_Tetrahedron rotate <31.717474, 0, 0> pigment {color White}}
  206.   object {Unit_Tetrahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  207.   object {Unit_Tetrahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  208.   object {Unit_Tetrahedron rotate <31.717474, 216, 0> pigment {color Red}}
  209.   object {Unit_Tetrahedron rotate <31.717474, 288, 0> pigment {color Green}}
  210.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 0, 0> pigment {color Yellow}}
  211.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 72, 0> pigment {color Orange}}
  212.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 144, 0> pigment {color Cyan}}
  213.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 216, 0> pigment {color Pink}}
  214.   object {Unit_Tetrahedron rotate 90*y rotate <31.717474, 288, 0> pigment {color Grey}}
  215.   scale <0.419469, 0.419469, 0.419469>
  216.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  217. } 
  218.  
  219. #declare Five_Cubes_i =
  220. //Intersection defines a rhombic triacontahedron
  221. //Vertices define a dodecahedron
  222. intersection {  
  223.   object { Unit_Cube rotate <31.717474, 0, 0> pigment {color White}}
  224.   object { Unit_Cube rotate <31.717474, 72, 0> pigment {color Blue}}
  225.   object { Unit_Cube rotate <31.717474, 144, 0> pigment {color Magenta}}
  226.   object { Unit_Cube rotate <31.717474, 216, 0> pigment {color Red}}
  227.   object { Unit_Cube rotate <31.717474, 288, 0> pigment {color Green}}
  228.   scale <0.726542, 0.726542, 0.726542>
  229.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  230. }
  231.  
  232. #declare Five_Octahedra_i =
  233. //Intersection defines an icosahedron
  234. // Vertices define an icos1dodecahedron
  235. intersection {
  236.   object {Unit_Octahedron rotate <31.717474, 0, 0> pigment {color White}}
  237.   object {Unit_Octahedron rotate <31.717474, 72, 0> pigment {color Blue}}
  238.   object {Unit_Octahedron rotate <31.717474, 144, 0> pigment {color Magenta}}
  239.   object {Unit_Octahedron rotate <31.717474, 216, 0> pigment {color Red}}
  240.   object {Unit_Octahedron rotate <31.717474, 288, 0> pigment {color Green}}
  241.   scale <0.678716, 0.678716, 0.678716>
  242.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  243. }
  244.  
  245. #declare Octahedron_Cube_i =
  246. //Intersection defines a cuboctahedron
  247. //Vertices define a rhombic dodecahedron
  248. intersection {
  249.   object {Unit_Cube pigment {color Blue}}
  250.   object {Unit_Octahedron scale <1.154700, 1.154700, 1.154700> pigment {color White}}
  251.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  252. }
  253.  
  254. #declare Icosahedron_Dodecahedron_i =
  255. //Intersection defines an icosidodecahedron
  256. //Vertices define a rhombic triacontahedron
  257. intersection {
  258.   object {Unit_Dodecahedron pigment {color Red}}
  259.   object {Unit_Icosahedron scale <1.098014, 1.098014, 1.098014> pigment {color Green}}
  260.   bounded_by { sphere { < 0, 0, 0 >, 1.8 } }
  261. }
  262.  
  263. // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  264. // ADD A SCENE     
  265. // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  266.  
  267. global_settings { assumed_gamma 2.2 }
  268.  
  269. camera {
  270.    location < 20.0, 20.0, -60.0 >
  271.    direction < 0.0, 0.0, 6.0 >
  272.    up < 0.0, 1.0, 0.0 >
  273.    right < 1.33333, 0.0, 0.0 > 
  274.    look_at < 0.0, 0.0, 0.0 >
  275. }
  276.  
  277. light_source { < 100.0, 100.0, -100.0 > colour rgb 1 }
  278.  
  279. light_source { < -100.0, 0.0, -50.0 > colour rgb 0.5 }
  280.  
  281. object { Two_Tetrahedra translate < -6.0, 3.0, 0.0 > }
  282. object { Five_Tetrahedra translate < -3.0, 3.0, 0.0 > }
  283. object { Ten_Tetrahedra translate <  0.0, 3.0, 0.0 > }
  284. object { Five_Cubes translate <  3.0, 3.0, 0.0 > }
  285. object { Five_Octahedra translate <  6.0, 3.0, 0.0 > }
  286.  
  287. object { Octahedron_Cube translate < -6.0, 0.0, 0.0 > }
  288. object { Icosahedron_Dodecahedron translate < -3.0, 0.0, 0.0 > }
  289.  
  290. object { Two_Tetrahedra_i translate <  3.0, 0.0, 0.0 > }
  291. object { Five_Tetrahedra_i translate <  6.0, 0.0, 0.0 > }
  292.  
  293. object { Ten_Tetrahedra_i translate < -6.0, -3.0, 0.0 > }
  294. object { Five_Cubes_i translate < -3.0, -3.0, 0.0 > }
  295. object { Five_Octahedra_i translate <  0.0, -3.0, 0.0 > }
  296. object { Octahedron_Cube_i translate <  3.0, -3.0, 0.0 > }
  297. object { Icosahedron_Dodecahedron_i translate <  6.0, -3.0, 0.0 > }
  298.  
  299.